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TITLE DISK2 ---- 10/28/85 FIXED DISK BIOS 
-- INT 13 -------------------------------------------- 


FIXED DISK I/O INTERFACE 


THIS INTERFACE PROVIDES ACCESS TO FIXED DISKS 
THROUGH THE IBM FIXED DISK CONTROLLER. 


THE BIOS ROUTINES ARE MEANT TO BE ACCESSED THROUGH 
SOFTWARE INTERRUPTS ONLY. ANY ADDRESSES PRESENT IN 
THE LISTINGS ARE INCLUDED ONLY FOR COMPLETENESS, 
NOT FOR REFERENCE. APPLICATIONS WHICH REFERENCE 
ABSOLUTE ADDRESSES WITHIN THE CODE SEGMENT 
VIOLATE THE STRUCTURE AND DESIGN OF BIOS. 


INPUT (AH = HEX VALUE) 


(AH) = 00H RESET DISK (DL = 80H,81H) / DISKETTE 
(AH) = 01H READ THE STATUS OF THE LAST DISK OPERATION INTO (AL) 
NOTE: DL < 80H — DISKETTE 
DL > 80H — DISK 
(AH) = 02H READ THE DESIRED SECTORS INTO MEMORY 
(AH) = 03H WRITE THE DESIRED SECTORS FROM MEMORY 
(AH) = 04H VERIFY THE DESIRED SECTORS 
(AH) = 05H FORMAT THE DESIRED TRACK 
(AH) = 06H FORMAT THE DESIRED TRACK AND SET BAD SECTOR FLAGS 
(AH) = 07H FORMAT THE DRIVE STARTING AT THE DESIRED TRACK 
(AH) = 08H RETURN THE CURRENT DRIVE PARAMETERS 


(AH) = 09H INITIALIZE DRIVE PAIR CHARACTERISTICS 
INTERRUPT 41H POINTS TO DATA BLOCK 

(AH) = OAH READ LONG 

(AH) = OBH WRITE LONG 
NOTE: READ AND WRITE LONG ENCOMPASS 
512 BYTES + 4 BYTES OF ECC 

(AH) OCH SEEK 

(AH) ODH ALTERNATE DISK RESET (SEE DL) 

(AH) = OEH READ SECTOR BUFFER 

(AH) = OFH WRITE SECTOR BUFFER, 
(RECOMMENDED PRACTICE BEFORE FORMATTING) 

(AH) 10H TEST DRIVE READY 

(AH) 11H RECALIBRATE 

(AH) = 12H CONTROLLER RAM DIAGNOSTIC 

(AH) = 13H DRIVE DIAGNOSTIC 

(AH) = 14H CONTROLLER INTERNAL DIAGNOSTIC 








REGISTERS USED FOR FIXED DISK OPERATIONS 


(DL) — DRIVE NUMBER (80H-87H FOR DISK, VALUE CHECKED) 
(DH) — HEAD NUMBER (O-7D ALLOWED, NOT VALUE CHECKED) 
(CH) - CYLINDER NUMBER (0-1023D, NOT VALUE CHECKED) (SEE CL) 
(CL) -— SECTOR NUMBER (1-17D, NOT VALUE CHECKED) 


NOTE: HIGH 2 BITS OF CYLINDER NUMBER ARE PLACED 
IN THE HIGH 2 BITS OF THE CL REGISTER 
(10 BITS TOTAL) 
(AL) — NUMBER OF SECTORS (MAXIMUM POSSIBLE RANGE 1-80H, 
FOR READ/WRITE LONG 1-79H) 
(INTERLEAVE VALUE FOR FORMAT 1-16D) 
ADORESS OF BUFFER FOR READS AND WRITES, 
(NOT REQUIRED FOR VERIFY) 


(ES : BX) 


OUTPUT 
AH 


STATUS OF CURRENT OPERATION 

STATUS BITS ARE DEFINED IN THE EQUATES BELOW 
CY = 0 SUCCESSFUL OPERATION (AH= 00H ON RETURN) 
CY = 1 FAILED OPERATION (AH HAS ERROR REASON) 


NOTE: ERROR 11H INDICATES THAT THE DATA READ HAD A RECOVERABLE 
ERROR WHICH WAS CORRECTED BY THE ECC ALGORITHM. THE DATA 
1S PROBABLY GOOD, HOWEVER THE BIOS ROUTINE INDICATES AN 
ERROR TO ALLOW THE CONTROLLING PROGRAM A CHANCE TO DECIDE 
FOR ITSELF. THE ERROR MAY NOT RECUR IF THE DATA IS 
REWRITTEN. (AL) CONTAINS THE BURST LENGTH. 


IF DRIVE PARAMETERS WERE REQUESTED, 


DL = NUMBER OF CONSECUTIVE ACKNOWLEDGING DRIVES 
ATTACHED (0-2) (CONTROLLER CARD ZERO TALLY ONLY) 
DH = MAXIMUM USEABLE VALUE FOR HEAD NUMBER 
CH = MAXIMUM USEABLE VALUE FOR CYLINDER NUMBER 
CL = MAXIMUM USEABLE VALUE FOR SECTOR NUMBER 
AND CYLINDER NUMBER HIGH BITS 


IF AN ERROR OCCURS ON READ DRIVE PARAMETERS, 


AH ERROR CODE (INIT_FAIL) 
AL = CX = DX = 0 


REGISTERS WILL BE PRESERVED EXCEPT WHEN THEY ARE USED TO RETURN 
INFORMATION . 


NOTE: IF AN ERROR IS REPORTED BY THE DISK CODE, THE APPROPRIATE 
ACTION IS TO RESET THE DISK, THEN RETRY THE OPERATION. 
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103 

104 

105 

106 

107 

108 = OOFF 
109 oocc 
110 O0OBB 
111 = 0080 
112 0040 
113 0020 
114 = 0011 
115 = 0010 
116 000B 
117 0009 
118 0007 
119 = 0005 
120 = 0004 
121 = 0002 
122 = 0001 
123 

124 

125 

126 

127 

128 0000 
129 0034 
130 0034 
131 004c 
132 004c 
133 0064 
134 0064 
135 0078 
136 0078 
137 0100 
138 0100 
139 0104 
140 0104 
141 7c00 
142 7c00 
143 7c00 
144 

145 0000 
146 O006Cc 
147 O006C 2??? 
148 0072 
149 0072 2??? 
150 0074 
151 0074 ?? 
152 0075 ?? 
153 0076 ?? 
154 0077 ?? 
155 0078 
156 

157 0000 
158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 = 

179 = 0320 
180 = 0020 
181 0021 
182 0020 
183 = 0008 
184 = 0004 
185 = 0002 
186 = 0001 
187 

188 = 0047 
189 = 004B 
190 = 0000 
191 = 0082 
192 

193 = 0000 
194 = 0001 
195 = 0003 
196 0004 
197 = 0005 
198 0006 
199 0007 
200 = 0008 
201 = OOOA 
202 = 000B 
203 o00oc 
204 oooD 
205 = OOOE 
206 = OOOF 
207 = OOEO 
208 OO0E3 
209 OOE4 
210 = OOE5 
211 = OOE6 
212 

213 000s 
214 0002 
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SENSE_FAIL 
WRITE_FAULT 
UNDEF_ERR 
TIME_OUT 
BAD_SEEK 
BAD_CNTLR 
DATA_CORRECTED 
BAD_ECC 
BAD_TRACK 
DMA_BOUNDARY 
INIT_FAIL 
BAD_RESET 
RECORD_NOT_FND 
BAD_ADDR_MARK 
BAD_CMD 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
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OFFH ; SENSE OPERATION FAILED 

OCcCH ; WRITE FAULT ON SELECTED DRIVE 
OBBH ; UNDEFINED ERROR OCCURRED 

O080H ; ATTACHMENT FAILED TO RESPOND 
040H ; SEEK OPERATION FAILED 

020H ; CONTROLLER HAS FAILED 

011H ; ECC CORRECTED DATA ERROR 

010H ; BAD ECC ON DISK READ 

OOBH ; BAD TRACK FLAG DETECTED 

OO9H ; ATTEMPT TO DMA ACROSS 64K BOUNDARY 
O0O7H ; DRIVE PARAMETER ACTIVITY FAILED 
OO5H ; RESET FAILED 

004H ; REQUESTED SECTOR NOT FOUND 

002H ; ADDRESS MARK NOT FOUND 

001H ; BAD COMMAND PASSED TO DISK I/O 


ABSO SEGMENT AT OH 

ORG OODH*4 ; FIXED DISK INTERRUPT VECTOR 
HDISK_INT LABEL DWORD 

ORG 013H*4 ; DISK INTERRUPT VECTOR 
ORG_VECTOR LABEL DWORD 

ORG 019H*4 ; BOOTSTRAP INTERRUPT VECTOR 
BOOT_VEC LABEL DWORD 

ORG O1EH*4 ; DISKETTE PARAMETERS 
DISKETTE_PARM LABEL DWORD 

ORG 040H*4 ; NEW DISKETTE INTERRUPT VECTOR 
DISK_VECTOR LABEL DWORD 

ORG 041H*4 ; FIXED DISK PARAMETER VECTOR 
HF_TBL_VEC LABEL DWORD 

ORG 7COOH ; BOOTSTRAP LOADER VECTOR 
BOOT_LOCN LABEL FAR 
ABSO ENDS 
DATA SEGMENT AT 40H 

ORG O6CH 
TIMER_LOW DW oe ; TIMER LOW WORD 

ORG 072H 
RESET_FLAG DW tes ; 1234H IF KEYBOARD RESET UNDERWAY 

ORG 074H 
DISK_STATUS DB 2 ; FIXED DISK STATUS BYTE 
HF_NUM DB 2 ; COUNT OF FIXED DISK DRIVES 
CONTROL_BYTE DB ? ; CONTROL BYTE DRIVE OPTIONS 
PORT_OFF DB 2 ; PORT OFFSET 
DATA ENDS 
CODE SEGMENT 


- CONTROLLER I/O PORT 


> WHEN READ 


HF_PORT+0 — 
HF_PORT+1 — 


HF_PORT+3 — 


> WHEN WRITTEN TO: 


HF_PORT+0 — 
HF_PORT+1 — 
HF_PORT+2 — 
HF_PORT+3 — 


CMD_BLOCK 
HF_PORT 
INTAOO 
INTAO1 
EOL 
R1_BUSY 
R1_BUS 
R1_IOMODE 
R1_REQ 


DMA_READ 
DMA_WRITE 
DMA 
DMA_HIGH 


TST_RDY_CMD 
RECAL_CMD 
SENSE_CMD 
FMTDRV_CMD 
CHK_TRK_CMD 
FMTTRK_CMD 
FMTBAD_CMD 
READ_CMD 
WRITE_CMD 
SEEK_CMD 
INIT_DRV_CMD 
RD_ECC_CMD 
RD_BUFF_CMD 
WR_BUFF_CMD 
RAM_DIAG_CMD 
CHK_DRV_CMD 
CNTLR_DIAG_CMD 
RD_LONG_CMD 
WR_LONG_CMD 


MAX_FILE 
S_MAX_FILE 


; HF_PORT+2 — 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


FROM: 


READ DATA (FROM CONTROLLER TO CPU) 
READ CONTROLLER HARDWARE STATUS 
(CONTROLLER TO CPU) 

READ CONFIGURATION SWITCHES 

NOT USED 








WRITE DATA (FROM CPU TO CONTROLLER) 
CONTROLLER RESET 

GENERATE CONTROLLER SELECT PULSE 
WRITE PATTERN TO DMA AND INTERRUPT 
MASK REGISTER 





BYTE PTR [BP]-8 CMD_BLOCK HEAD 


0320H ; DISK PORT 

020H ; 8259 PORT 

021H ; 8259 PORT 

020H ; END OF INTERRUPT COMMAND 
000010008 ; DISK PORT 1 BUSY BIT 
00000100B ; COMMAND/DATA BIT 
000000108 ; MODE BIT 
00000001B ; REQUEST BIT 
01000111B ; CHANNEL 3 (047H) 
01001011B ; CHANNEL 3 (04BH) 

000H ; DMA ADDRESS 

082H ; PORT FOR HIGH 4 BITS OF DMA 
00000000B ; CNTLR READY (00H) 
00000001B ; RECAL (01H) 
00000011B ; SENSE (03H) 
000001008 ; DRIVE (04H) 
00000101B ; T CHK (05H) 
00000110B ; TRACK (06H) 
00000111B ; BAD (07H) 
000010008 ; READ (08H) 
000010108 ; WRITE (OAH) 
00001011B ; SEEK (0BH) 
000011008 ; INIT (OCH) 
00001101B ; BURST (ODH) 
00001110B ; BUFFR (OEH) 
00001111B ; BUFFR (OFH) 
111000008 ; RAM (EOH) 
11100011B ; DRV (E3H) 
111001008 ; CNTLR (E4H) 
11100101B ; RLONG (E5H) 
111001108 ; WLONG (E6H) 

8 
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CS:CODE,DS:ABSO 

OH 

O55H 
OAAH 

o8sD = 


GENERIC BIOS HEADER 


4K MODULE 


222 pocen-------------------------------- += -- === == 


- ESTABLISH TRANSFER VECTORS FOR THE FIXED DISK 
- PERFORM POWER ON DIAGNOSTICS 


SHOULD AN ERROR OCCUR A 


"1701" 


MESSAGE IS DISPLAYED 


229 joceeoo--------------- + ------------------- ------------ 


PROC 
SHORT 


FAR 
L3 


’59X7291 (C) COPYRIGHT IBM CORP.’ ; 


’,1982 ,1985.’ 
’ 10/28/85" 
AX, AX 

DS, AX 


AX,WORD PTR ORG_VECTOR 
WORD PTR DISK_VECTOR, AX 
AX,WORD PTR ORG_VECTOR+2 
WORD PTR DISK_VECTOR+2,AX 


WORD PTR ORG_VECTOR, OFFSET DISK_IO 3 


WORD PTR ORG_VECTOR+2,CS 
AX, OFFSET HD_INT 


COPYRIGHT NOTICE 


; RELEASE MARKER 


; ADDRESS LOW RAM 


; LOAD DISKETTE IP 
; STORE AT INT 40H 

; LOAD DISKETTE CS 

; STORE AT INT 40H 
FIXED DISK HANDLER 

; AT INT 13H 

; FIXED DISK INTERRUPT 


WORD PTR HDISK_INT, AX ; HANDLER AT INT ODH 
WORD PTR HDISK_INT+2,CS 

WORD PTR BOOT_VEC, OFFSET BOOT_STRAP ; BOOTSTRAP ROUTINE AT 
WORD PTR BOOT_VEC+2,CS ; INT 19H 

WORD PTR HF_TBL_VEC,OFFSET FD_TBL ; PARAMETER TABLE AT 
WORD PTR HF_TBL_VEC+2,CS ; INT 41H 

DS:DATA 

AX, DATA ; ESTABLISH SEGMENT 

DS, AX 

DISK_STATUS, 0 ; RESET THE STATUS INDICATOR 

HF_NUM, 0 ; ZERO COUNT OF DRIVES 

PORT_OFF, 0 ; ZERO CARD OFFSET 

CX, 25H ; RETRY COUNT 


HD_RESET_1 ; 
L7 

L4 - 
ERROR_EX 


cx,1 

DX, 80H 

AX,1200H ; 
13H rs 
P7 F 
ERROR_EX 


AX, 1400H ; 
13H ; 
Pg : 
ERROR_EX 


TIMER_LOW, 0 ; 
RESET_FLAG, 1234H ; 
P8 

TIMER_LOW, 410D ; 


AL, INTAOL ; 
AL, OFEH ; 
INTAO1,AL ; 


HD_RESET_1 ; 
P10 

Ax, 1000H ; 
13H 3 
P2 


AX, TIMER_LOW 
AX, 446D ; 
P4 

SHORT ERROR_EX 


AX, 1100H 9 
13H 
ERROR_EX 


Ax, 0900H ; 
13H ; 
ERROR_EX 


AX, 0C800H ; 
ES, AX ; 
BX, BX 

AX, OFOOH ; 
13H 

ERROR_EX 


HE_NUM 
DX, 213H 
AL,O 

Dx, AL ; 
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215 PAGE 

216 ASSUME 
217 0000 ORG 
218 0000 55 DB 
219 OO0O1 AA DB 
220 0002 08 DB 
221 

223 ; FIXED DISK I/O SETUP 
224 ; 

225 ; 

226 ; 

227 ; 

228 ; 

230 

231 0003 DISK_SETUP 
232 0003 EB 35 JMP 
233 0005 35 39 58 37 32 39 DB 
234 31 20 28 43 29 20 

235 43 4F 50 59 52 49 

236 47 48 54 20 49 42 

237 4D 20 20 43 4F 52 

238 50 2E 

239 0025 2C 31 39 38 32 20 DB 
240 2c 31 39 38 35 2E 

241 0031 20 31 30 2F 32 38 DB 
242 2F 38 35 

243 003A L3: 

244 003A 2B CO SUB 
245 003C 8E D8 MOV 
246 O03E FA CLI 
247 OO3F Al 004C R MOV 
248 0042 A3 0100 R MOV 
249 0045 Al O004E R MOV 
250 0048 A3 0102 R MOV 
251 004B C7 06 004C R 0251 R MOV 
252 0051 8C OE 004E R MOV 
253 0055 B8 0755 R MOV 
254 0058 A3 0034 R MOV 
255 0O0O5B 8C OE 0036 R MOV 
256 OO5F C7 06 0064 R 0192 R MOV 
257 0065 8C OE 0066 R MOV 
258 0069 C7 06 0104 R O3FF R MOV 
259 OO6F 8C OE 0106 R MOV 
260 0073 FB STI 
261 

262 ASSUME 
263 0074 B8 ---- R MOV 
264 0077 8E D8 MOV 
265 0079 C6 06 0074 R 0O MOV 
266 OO7E C6 06 0075 R 0O MOV 
267 0083 C6 06 0077 R 0O MOV 
268 0088 B9 0025 MOV 
269 0O08B L4: 

270 OO8B E8 0177 R CALL 
271 OO8E 73 05 INC 
272 0090 E2 F9 LOOP 
273 0092 E9 0154 R JMP 
274 0095 L7: 

275 0095 B9 0001 MOV 
276 0098 BA 0080 MOV 
277 OO9B B8 1200 MOV 
278 OO9E CD 13 INT 
279 OOAO 73 03 INC 
280 OOA2 E9 0154 R JMP 
281 OOA5 P7: 

282 OOA5 B8 1400 MOV 
283 OOA8 cD 13 INT 
284 OOAA 73 03 INC 
285 OOAC E9 0154 R JMP 
286 OOAF Pg: 

287 OOAF C7 06 O006C R 0000 MOV 
288 OOB5 81 3E 0072 R 1234 CMP 
289 OOBB 75 06 JNE 
290 OOBD C7 06 O06C R 019A MOV 
291 00c3 P8: 

292 00C3 FA CLI 
293 00C4 E4 21 IN 
294 00C6 24 FE AND 
295 00C8 E6 21 ouT 
296 OOCA FB STI 
297 0OOCB Pa: 

298 OOCB E8 0177 R CALL 
299 OOCE 72 07 Jc 
300 OODO B8 1000 MOV 
301 O00D3 cD 13 INT 
302 OOD5 73 OA INC 
303 OOD7 P10: 

304 OOD7 Al 006C R MOV 
305 OODA 3D O1BE CMP 
306 OODD 72 EC JB 
307 OODF EB 73 JMP 
308 OOE1 P2: 

309 OOE1 B8 1100 MOV 
310 OOE4 cD 13 INT 
311 OOE6 72 6C ac 
312 

313 OOE8 B8 0900 MOV 
314 OOEB CD 13 INT 
315 OOED 72 65 Jc 
316 

317 OOEF B8 C800 MOV 
318 OOF2 8E CO MOV 
319 OOF4 2B DB SUB 
320 OOF6 B8 OFOO MOV 
321 OOF9 CD 13 INT 
322 OOFB 72 57 Jac 
323 

324 OOFD FE 06 0075 R INC 
325 0101 BA 0213 MOV 
326 0104 BO 00 MOV 
327 0106 EE ouT 
328 0107 BA 0321 MOV 


DX, 321H ; 


RESET CONTROLLER 


TRY RESET AGAIN 


CONTROLLER DIAGNOSTICS 
CHECK THE INTERNAL RAM 
BUFFERS 


CONTROLLER DIAGNOSTICS 
INTERNAL CHECKSUM AND 
ECC CIRCUITRY TEST. 


ZERO TIMER 
KEYBOARD RESET 
SKIP WAIT ON RESET 
DISABLE INTERRUPTS 
TIMER 

ENABLE TIMER 
START TIMER 
INTERRUPTS ON 


RESET CONTROLLER 


TEST TO SEE IF THE DRIVE 
IS READY 


25 SECONDS 


RECALIBRATE THE DRIVE 0 


SET DRIVE PARAMETERS 
FOR DRIVE 0 


DMA TO BUFFER 


SET SEGMENT 


WRITE SECTOR BUFFER 


DRIVE ZERO RESPONDED 
EXPANSION BOX 


TURN BOX OFF 
TEST IF CONTROLLER 
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329 010A EC IN AL, DX ; 
330 010B 24 OF AND AL, OFH 

331 010D 3C OF CMP AL, OFH 

332 O10F 74 06 JE BOX_ON 

333 0111 C7 06 O06C R O1A4 MOV TIMER_LOW, 420D ; 
334 0117 BOX_ON: 

335 0117 BA 0213 MOV DX, 213H ; 
336 O11A BO FF MOV AL, OFFH 

337 011C EE ouT DX, AL ; 
338 011D B9 0001 MOV cx,1 H 
339 0120 BA 0081 MOV Dx, 081H 

340 0123 P3: 

341 0123 2B CO SUB AX, AX ; 
342 0125 CD 13 INT 13H 

343 0127 72 42 Jc POD_DONE 

344 0129 B8 1100 MOV AxX,01100H ; 
345 012C CD 13 INT 13H 

346 012E 73 OA JNC PS 

347 0130 Al OO06C R MOV AX, TIMER_LOW 

348 0133 3D 0O1BE CMP AX, 446D ; 
349 0136 72 EB JB P3 

350 0138 EB 31 JMP SHORT POD_DONE 

351 013A PS: 

352 013A B8 0900 MOV Ax, 0900H ; 
353 013D CD 13 INT 13H } 
354 013F 72 2A Jc POD_DONE 

355 0141 FE 06 0075 R INC HF_NUM } 
356 0145 81 FA 0081 CMP DX, (80H + S_MAX FILE - 1) 
357 0149 73 20 JAE POD_DONE 

358 014B 42 INC Dx 

359 014C EB D5 JMP P3 

360 

361 014E 31 37 30 31 OD OA F17 DB '1701’ , ODH, OAH ; 
362 = 0006 F17L EQU $-F17 

363 

364 jos -= POD ERROR 

365 

366 0154 ERROR_EX: 

367 0154 BD OOOF MOV BP, OFH ; 
368 0157 2B F6é SUB SI,SI 

369 0159 B9 0006 MOV Cx,F17L ; 
370 015C B7 00 MOV BH,O ; 
371 O15E OUT_CH: 

372 O15E 2E: 8A 84 014E R MOV AL,CS:F17[SI] ; 
373 0163 B4 OE MOV AH,14D ; 
374 0165 CD 10 INT 10H } 
375 0167 46 INC sI ; 
376 0168 E2 F4 LOOP OUT_CH ; 
377 O16A F9 stTc 

378 016B POD_DONE: 

379 0O16B FA CLI ; 
380 016C E4 21 IN AL, INTAO1 $ 
381 O16E OC O01 OR AL, 01H ; 
382 0170 E6 21 ouT INTAO1,AL 

383 0172 FB STI ; 
384 0173 E8 0232 R CALL DSBL } 
385 0176 CB RET 

386 

387 0177 HD_RESET_1 PROC NEAR 

388 0177 51 PUSH cx ; 
389 0178 52 PUSH Dx 

390 0179 B9 0100 MOV Cx, 0100H ; 
391 o017C L6: 

392 017C E8 076D R CALL PORT_O 

393 O17F 42 INC Dx ; 
394 0180 EE ouT DX, AL ; 
395 0181 EB 00 JMP $4+2 H 
396 0183 EB 00 JMP $4+2 ; 
397 0185 EB 00 JMP $4+2 ; 
398 0187 EC IN AL, DX ; 
399 0188 24 3F AND AL,00111111B ; 
400 018A 74 03 JZ R3 } 
401 018C E2 EE LOOP L6 ; 
402 018E F9 stTc ; 
403 018F R3: 

404 0O18F 5A POP Dx 3 
405 0190 59 POP cx 

406 0191 C3 RET 

407 0192 HD_RESET_1 ENDP 

408 0192 DISK_SETUP ENDP 


Is IN THE SYSTEM UNIT 


CONTROLLER IS IN SYSTEM UNIT 


EXPANSION BOX 


TURN BOX ON 
ATTEMPT NEXT DRIVES 


RESET THE CONTROLLER 


RECALIBRATE THE DRIVE 


25 SECONDS 


INITIALIZE DRIVE CHARACTERISTICS 
FOR DRIVE 1 


TALLY ANOTHER DRIVE 


POST MESSAGE 


POD ERROR FLAG 


MESSAGE CHARACTER COUNT 
PAGE ZERO 


GET BYTE 

VIDEO OUT 

DISPLAY CHARACTER 
NEXT CHAR 

DO MORE 


NO INTERRUPTS 
READ THE INTERRUPT MASK 
DISABLE THE TIMER 


ENABLE INTERRUPTS 
DISABLE THE CARD MASKS 


SAVE REGISTER 


RETRY COUNT 


ADDRESS PORT_1 

RESET CARD 

I/O DELAY AT LEAST +5us 

ALLOW TIME TO CLEAR THE 

HARDWARE STATUS REGISTER 

READ THE HARDWARE STATUS 

MASK OFF UPPER 2 BITS AND CLEAR CY 
EXIT IF REGISTER IS CLEARED WITH CY=0 
TRY AGAIN 

SET ERROR CONDITION CY=1 


RESTORE REGISTER 
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409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 


0192 


0192 
0194 
0196 
0198 


019A 
019B 
O1A1 
O1A5 


O1A7 
O1AD 
01B1 
01B1 


01B2 


01B4 
01B6 


01B9 
O1BA 
01BC 
O1BF 
O1c1 


01c3 
01cé6 
01cé6 
01c7 
01c9 
01cB 


01icD 
01D0 
01D3 
01D5 
01D6 


01D8 
01DB 


01DD 
O1DF 


O1E1 
O1E6 


01E8 
01EB 
01EE 


O1F1 
O1F4 
O1F6 
o1Fs 
O1FA 
O1FA 


O1FF 
O1FF 
0201 
0203 
0206 
0209 
0209 
020A 
020c 
020E 


0210 
0213 
0216 
0218 
0219 
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2B 
8E 
B4 
cD 


FA 
c7 
8c 
73 


c7 
8c 


FB 


2B 


8E 
BB 


FC 
33 
BO 
8B 


co 
Ds 
co 
15 


06 0104 R O3FF R 
OE 0106 R 
OA 


06 0078 R 0227 R 
OE OO7A R 


D2 


7c00 R 


co 
0100 
FB 


F3/ AB 


BO 


51 
2B 
cD 
72 


BS 
BO 
cD 
59 
73 


80 
74 


E2 
EB 


80 
72 


BF 
BO 
Al 


83 
3B 
El 
74 


2B 
cD 
BO 
BA 


51 
2B 
cD 
72 


BS 
BO 
cD 
59 
72 


0004 


co 
13 
os 


0201 
ooo1 
13 


09 


Fc 80 
22 


E7 
1E 


3E 7C00 R 06 
3D 


7c00 R 
000s 
7c00 R 


C7 02 
05 
FQ 
2B 


7c00 ---- R 


co 
13 
0003 
0080 


co 
13 
os 


0201 
ooo1 
13 


os 
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--- INT 19H 


LAST TWO 


BOOT_STRAP: 
ASSUME 
SUB 
MOV 
MOV 
INT 
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INTERRUPT 19 BOOT STRAP LOADER 


- THE BOOTSTRAP SEQUENCE IS: 
ATTEMPT TO LOAD FROM THE DISKETTE INTO THE BOOT 
LOCATION (0000:7CO0H) WHERE CONTROL IS TRANSFERRED. 
IF THE DISKETTE FAILS THE FIXED DISK IS TRIED FOR A 
VALID BOOTSTRAP BLOCK. A VALID BOOT BLOCK ON THE 
FIXED DISK CONSISTS OF THE BYTES 0O55H OAAH AS THE 


BYTES OF THE BLOCK. 


DS: ABSO,ES:ABSO 
AX, AX 

DS, AX 

AH, OCOH 

15H 


pes -S= RESET PARAMETER VECTORS 


CLI 
MOV 
MOV 
INC 


MOV 

MOV 
HO: 

STI 
3----- ATTEMPT 


SUB 





- THE FIXED DISK BIOS REPLACES THE INTERRUPT 19H BOOT 
STRAP VECTOR WITH A POINTER TO THIS BOOT ROUTINE AND 
RESETS THE DEFAULT DISK AND DISKETTE PARAMETER VECTORS 





- THE BOOT BLOCK TO BE READ IN WILL BE ATTEMPTED FROM 
CYLINDER 0 SECTOR 1 OF THE DEVICE. 








IF THE ABOVE FAILS CONTROL IS PASSED TO RESIDENT BASIC 


ESTABLISH SEGMENT 


READ CONFIGURATION PARAMETERS 
IF XT OR PC, INTERRUPTS ARE DISABLED 
AT THIS POINT. 


WORD PTR HF_TBL_VEC, OFFSET FD_TBL 


WORD PTR HF_TBL_VEC+2,CS 


HO 


JMP IF INT 15 FUNCTION IMPLEMENTED 


WORD PTR DISKETTE_PARM, OFFSET DISKETTE_TBL 
WORD PTR DISKETTE_PARM+2,CS 


BOOTSTRAP FROM DISKETTE 


DX, DX 


joo -S. ESTABLISH ES:BX POINTER 


MOV 
MOV 


ES, DX 
BX, OFFSET BOOT_LOCN 


oo CLEAR BOOT_LOCN 


CLD 
XOR 
MOV 
MOV 
REP 


MOV 
H1: 

PUSH 

SUB 

INT 

Jc 


MOV 
MOV 
INT 
H2: POP 


H3: CMP 





MOV 
MOV 
MOV 


H4: ADD 
CMP 
LOOPZ 
JZ 
HS: 


joss ATTEMPT 


SUB 
INT 
MOV 
MOV 
H7: 

PUSH 
SUB 
INT 
Jc 


AX, AX 
Cx, 256 
DI, BX 
sTOsW 


cx,4 


cx 
AX, AX 
13H 
H2 


AX, 0201H 
cx,1 

13H 

cx 

H3 


AH, 80H 
HE 


H1 
SHORT H6 


BYTE PTR BOOT_LOCN, 06H 
H10 


DI,OFFSET BOOT_LOCN 
cx, 8 
AX,WORD PTR BOOT_LOCN 


DI,2 
AX, [DT] 
H4 

H10 


JMP BOOT_LOCN 


BOOTSTRAP FROM FIXED DISK 


AX, AX 
13H 
cx,3 
DX, 0080H 


cx 
AX, AX 
13H 
H8 


Fh merrier sr, ES AND BX ALREADY ESTABLISHED 


MOV 
MOV 
INT 
H8: POP 
Jc 


AX, 0201H 
cx,1 

13H 

cx 

HO 


INSURE DATA PATTERN FIRST 8 WORDS 


DRIVE ZERO 


ESTABLISH SEGMENT 
SET BX TO 7COOH 


DIRECTION FORWARD 


CLEAR 256 WORDS 
POINT TO BOOT LOCATION BUFFER 
ZERO THE BOOT LOCATION BUFFER 


SET RETRY COUNT 
IPL_SYSTEM 

SAVE RETRY COUNT 
RESET THE DISKETTE 
FILE IO CALL 

IF ERROR, TRY AGAIN 


READ IN THE SINGLE SECTOR 
SECTOR 1, TRACK 0, 

FILE IO CALL 

RECOVER RETRY COUNT 

CARRY FLAG SET BY UNSUCCESSFUL READ 


IF TIME OUT, NO RETRY 
TRY FIXED DISK 


DO IT FOR RETRY TIMES 
UNABLE TO IPL FROM THE DISKETTE 


CHECK FOR FIRST INSTRUCTION INVALID 
IF BOOT NOT VALID, GO TO BASIC 


NOT ALL EQUAL 


CHECK DATA PATTERN 
CHECK THE NEXT 8 WORDS 
LOAD THE FIRST WORD 


POINT TO NEXT WORD 
CHECK DATA PATTERN FOR A FILL PATTERN 


BOOT NOT VALID, GO TO BASIC 


RESET DISKETTE 


SET RETRY COUNT 
FIXED DISK ZERO 
IPL_SYSTEM 

SAVE RETRY COUNT 
RESET THE FIXED DISK 
FILE IO CALL 

IF ERROR, TRY AGAIN 


READ IN THE SINGLE SECTOR 
SECTOR 1, TRACK 0 

FILE IO CALL 

RECOVER RETRY COUNT 


IBM Personal Computer Assembler 
FIXED DISK BIOS 


DISK2 


523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 


021B 
021E 
0221 
0223 
0223 


0225 
0225 


0227 


0227 
0228 
0229 
022A 
022B 
022c 
022D 
022E 
022F 
0230 
0231 


0232 
0232 
0234 
0237 
0238 
0239 
023c 
023D 
0240 
0241 
0244 


0245 
0247 
0249 
024B 
024D 
024F 
0250 
0251 


0251 


0251 
0254 
0256 
0258 
0258 


025B 
025B 
025c 
025E 
0260 
0262 
0264 
0267 
0269 
0269 
026c 
026E 
0271 
0271 
0272 
0274 


0277 
0278 
0279 
O27A 
027B 
027c 
027D 
027E 
0281 


0283 


0286 
0287 
028A 
028D 
028F 
0290 
0294 
0295 
0296 
0297 
0298 
0299 
029A 


029B 
029E 
029F 
02A2 
02A3 
O2A6 


10/28/85 


Al 
3D 
74 


E2 


cD 


CF 
02 
25 
02 
os 
2a 
FF 
50 
F6 
19 
04 


2a 
BA 
FA 
EE 
83 
EE 
83 
EE 
83 
EE 


BO 
E6 
E4 
oc 
E6 
FB 
c3 


80 
73 
cD 


CA 


FB 
OA 
75 
cD 
2A 
80 
77 


80 
75 
EQ 


55 
8B 
83 


53 
51 
52 
1E 


7DFE R 
AA55 
D7 


E4 


18 


co 
0323 


c2 04 


c2 04 


c2 04 


07 
OA 
21 
20 
21 


FA 80 
05 
40 


0002 


E4 
09 
40 
E4 
FA 81 
EF 


Fc 08 
03 
0380 R 


EC 
EC 08 





E8& 


50 
E8& 
BS 
8E 
58 
8A 
5F 
5E 
07 
1F 
5A 
59 
5B 


83 
5D 
80 
F5 
CA 


02D0 R 


0232 R 
---- R 
D8 


26 0074 R 


c4 08 


Fc 01 


0002 


Version 2.00 


;----- UNABLE TO IPL FROM THE DISKETTE 


MOV 

CMP 

JZ 
HS: 

LOOP 
H10 


INT 


DISKETTE_TBL: 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


7s MAKE SURE THAT ALL HOUSEKEEPING 


DSBL PROC 
SUB 
MOV 
CLI 
ouT 


MOV 
out 
IN 

OR 

ouT 
STI 
RET 

DSBL ENDP 


--- DISK_IO 


DISK_IO PROC 
ASSUME 
CMP 
JAE 
INT 
RET_2: 
RET 


HARD_DISK: 
STI 
OR 


INT 

SUB 

CMP 

JA 
A3: 

CMP 


PUSH 
MOV 
SUB 


PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
MOV 

MOV 


PUSH 
CALL 
MOV 
MOV 
POP 
MOV 
POP 
POP 
POP 
POP 
POP 
POP 
POP 


ADD 
POP 
CMP 
CMC 
RET 
DISK_IO ENDP 
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AX,WORD PTR BOOT_LOCN+510D 


AX, OAA55H 
HS 


H7 


18H 


11001111B 
2 
25H 
2 

8 
O2AH 
OFFH 
O050H 
OF6H 
25 

4 


NEAR 
AL, AL 
DX, HF_PORT+3 


Dx, AL 
Dx, 4 
Dx, AL 
Dx, 4 
Dx, AL 
Dx, 4 
Dx, AL 


AL, 07H 
DMA+10, AL 
AL, INTAOL 
AL, 020H 
INTAO1,AL 


; TEST FOR GENERIC BOOT BLOCK 
; GO TO BOOT LOCATION 


; DO IT FOR RETRY TIMES 


OR FIXED DISK 


; RESIDENT BASIC 


SRT=D, HD UNLOAD=OF - 1ST SPEC BYTE 
HD LOAD=1, MODE=DMA -— 2ND SPEC BYTE 
MOTOR TIMEOUT AFTER OPERATION 

512 BYTES PER SECTOR 

EOT (LAST SECTOR ON TRACK) 

GAP LENGTH 

oTL 

GAP LENGTH FOR FORMAT 

FILL BYTE FOR FORMAT 

HEAD SETTLE TIME (MILLISECONDS) 
MOTOR START TIME (1/8 SECOND) 


IS DONE BEFORE EXIT 


RESET INT/DMA MASK 

LOAD FOR PORT_ADDRESS 3 
DISABLE INTERRUPTS 

RESET INT/DMA MASK CARD 0 


; RESET INT/DMA MASK CARD 1 
; RESET INT/DMA MASK CARD 2 


; RESET INT/DMA MASK CARD 3 


; SET DMA MODE TO DISABLE TG 


DISABLE IREQ 5 
ENABLE INTERRUPTS 


FIXED DISK BIOS ENTRY POINT 


FAR 
DS: DATA, ES : NOTHING 
DL, 080H 

HARD_DISK 

40H 


2 


AH, AH 
A3 

40H 

AH, AH 

DL, (80H+S_MAX_FILE-1) 
RET_2 


AH, 8 
A2 
GET_PARM_N 


BP 
BP, SP 
sP,8 


BX 
cx 

Dx 

Ds 

ES 

SI 

DI 
SI,DATA 
Ds, SI 


DISK_IO_CONT 


AX 
DSBL 

AX, DATA 

DS, AX 

AX 

AH, DISK_STATUS 
DI 

SI 

ES 

Ds 

Dx 

cx 

BX 


SP,8 
BP 
AH, 1 


2 





TEST FOR FIXED DISK DRIVE 
YES, HANDLE HERE 
DISKETTE HANDLER 


; BACK TO CALLER 


; ENABLE INTERRUPTS 


; RESET NEC WHEN AH=0 


; DL IN LIMITS? 


; GET PARAMETERS IS A SPECIAL CASE 


SAVE THE BASE POINTER 

LOAD THE CMD_BLOCK POINTER 

ALLOCATE SPACE FOR THE COMMAND BLOCK 
ON THE STACK. 

SAVE REGISTERS DURING OPERATION 


; ESTABLISH DATA SEGMENT 


; PERFORM THE OPERATION 


; BE SURE DISABLES OCCURRED 


ESTABLISH SEGMENT 
RESTORE THE REGISTERS 
GET STATUS FROM OPERATION 


ADJUST FOR THE COMMAND BLOCK. 
RESTORE BASE POINTER 

SET THE CARRY FLAG TO INDICATE 
SUCCESS OR FAILURE 

THROW AWAY SAVED FLAGS 
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634 PAGE 
635 O2A6 M1 LABEL WORD ; FUNCTION TRANSFER TABLE 
636 O2A6 032E R DW DISK_RESET ; OOOH 
637 O2A8 0347 R DW RETURN_STATUS , 0OO1H 
638 O2AA 0350 R DW DISK_READ , 0O02H 
639 O2AC 0359 R DW DISK_WRITE ; 003H 
640 O2AE 0362 R DW DISK_VERF , 004H 
641 02B0 0369 R DW FMT_TRK ; OO5SH 
642 O02B2 036F R DW FMT_BAD ; OO6H 
643 02B4 0375 R DW FMT_DRV ; OO7H 
644 O2B6 0326 R DW BAD_COMMAND ; OO8H 
645 0O2B8 043F R DW INIT_DRV ; OO9H 
646 O2BA 04F4 R DW RD_LONG ; OOAH 
647 O02BC 0501 R DW WR_LONG ; OOBH 
648 O2BE 0515 R DW DISK_SEEK ; OOCH 
649 02C0O 032E R DW DISK_RESET ; OODH 
650 02C2 051B R DW RD_BUFF ; OOEH 
651 02C4 0527 R DW WR_BUFF ; OOFH 
652 02C6 0533 R DW TST_RDY ; 0O10H 
653 02C8 0539 R DW HDISK_RECAL , 0118 
654 O2CA 053F R DW RAM_DIAG , 012H 
655 O2cc 0545 R DW CHK_DRV , 013H 
656 O2CE 054B R DW CNTLR_DIAG , 0148 
657 = 002A M1L EQU $-M1 
658 
659 02D0 DISK_IO_CONT PROC NEAR 
660 O02D0 80 FC O01 CMP AH,01H ; RETURN STATUS 
661 02D3 74 72 JE RETURN_STATUS 
662 
663 02D5 80 EA 80 SUB DL, 0O80H ; CONVERT DRIVE NUMBER TO 0 BASED RANGE 
664 02D8 80 FA 08 CMP DL, MAX_FILE ; LEGAL DRIVE TEST 
665 O2DB 73 49 JAE BAD_COMMAND 
666 
667 O2DD C6 06 0074 R 0O MOV DISK_STATUS, 0 ; RESET THE STATUS INDICATOR 
668 
669 joss = SET UP COMMAND BLOCK 
670 
671 O2E2 FE C9 DEC cL ; SECTORS 0-16 FOR CONTROLLER 
672 O2E4 C6 46 F8 00 MOV CMD_BLOCK+0, 0 ; SET TO ZERO THE OP CODE 
673 O2E8 88 4E FA MOV CMD_BLOCK+2,CL ; SECTOR AND HIGH 2 BITS CYLINDER 
674 O2EB 88 6E FB MOV CMD_BLOCK+3, CH ; CYLINDER LOW 
675 O2EE 88 46 FC MOV CMD_BLOCK+4,AL ; INTERLEAVE / BLOCK COUNT 
676 O2F1 AO 0076 R MOV AL, CONTROL_BYTE ; CONTROL BYTE (STEP OPTION) 
677 O2F4 88 46 FD MOV CMD_BLOCK+5, AL ; SET THE CONTROL FIELD 
678 
679 ¢----- CALCULATE THE PORT OFFSET 
680 
681 O2F7 8A EA MOV CH,DL ; SAVE DL 
682 O2F9 80 CA O01 OR DL,1 
683 O2FC FE CA DEC DL 
684 O2FE DO E2 SHL DL,1 ; GENERATE OFFSET 
685 0300 88 16 0077 R MOV PORT_OFF, DL ; STORE OFFSET 
686 0304 8A D5 MOV DL, CH ; RESTORE DL 
687 0306 80 E2 O01 AND DL,1 ; MAKE DRIVE O OR 1 
688 0309 Bl 05 MOV cL,5 ; SHIFT COUNT 
689 030B D2 E2 SHL DL, CL ; DRIVE NUMBER (0,1) 
690 030D OA D6 OR DL, DH ; HEAD NUMBER 
691 O30F 88 56 F9 MOV CMD_BLOCK+1,DL ; SET THE DRIVE AND HEAD 
692 
693 0312 8B C8 MOV CX, AX ; CALCULATE JUMP ADDRESS 
694 0314 8A CD MOV CL, CH ; GET INTO LOW BYTE 
695 0316 32 ED XOR CH, CH ; ZERO HIGH BYTE 
696 0318 D1 El SAL cx,1 ; *2 FOR TABLE LOOKUP 
697 031A 8B Fl MOV SI,CX ; PUT INTO SI FOR BRANCH 
698 031C 83 F9 2A CMP Cx,M1L ; TEST WITHIN RANGE 
699 031F 73 05 JNB BAD_COMMAND 
700 0321 2E: FF A4 02A6 R JMP WORD PTR CS: [SI+OFFSET M1] ; GO DO THE COMMAND 
701 0326 BAD_COMMAND : 
702 0326 C6 06 0074 R O1 MOV DISK_STATUS, BAD_CMD ; SET BAD COMMAND ERROR 
703 032B BO 00 MOV AL,O 
704 032D C3 RET ; EXIT 
705 032E DISK_IO_CONT ENDP 
706 
707 
708 
709 ee a a SS Ss SS SS Se 
710 
711 + 032E DISK_RESET PROC NEAR 
712 O32E E8 076D R CALL PORT_O ; RESET PORT 
713 0331 42 INC Dx ; PORT_1 ADDRESS 
714 0332 EE out DxX,AL ; RESET CARD 
715 0333 EB 00 JMP $+2 ; I/O DELAY AT LEAST +5us 
716 0335 EB 00 JMP $4+2 ; ALLOW TIME TO CLEAR THE 
717 0337 EB 0O JMP $4+2 3 HARDWARE STATUS REGISTER 
718 0339 EC IN AL, DX ; READ THE HARDWARE STATUS 
719 O33A 24 3F AND AL,00111111B ; MASK OFF UPPER 2 BITS AND CLEAR CY 
720 033C 74 06 JZ DRI ; EXIT IF REGISTER IS CLEARED WITH CY=0 
721 O33E C6 06 0074 R O05 MOV DISK_STATUS, BAD_RESET ; SET THE ERROR CONDITION 
722 0343 C3 RET ; EXIT 
723 0344 DRI: 
724 0344 E9 043F R JMP INIT_DRV ; SET THE DRIVE PARAMETERS 
725 
726 0347 DISK_RESET ENDP 
727 
728 a a a a a a 
729 ; DISK STATUS ROUTINE (AH 001H) 
730 
731 
732 0347 RETURN_STATUS PROC NEAR 
733 0347 AO 0074 R MOV AL, DISK_STATUS ; OBTAIN PREVIOUS STATUS 
734 034A C6 06 0074 R 0O MOV DISK_STATUS, 0 ; RESET STATUS 
735 034F C3 RET 
736 0350 RETURN_STATUS ENDP 
737 
738 PeSes sss SS ssa se Se seas sn seas s 
739 ; DISK READ ROUTINE (AH 002H) 
740 
741 
742 0350 DISK_READ PROC NEAR 
743 0350 BO 47 MOV AL, DMA_READ ; MODE BYTE FOR DMA READ 
744 0352 C6 46 F8 08 MOV CMD_BLOCK+0, READ_CMD 
745 0356 E9 O55E R JMP DMA_OPN 
746 0359 DISK_READ ENDP 


747 





MODE BYTE FOR DMA WRITE 





FORMAT TRACK (AH = 005H) 
FORMAT BAD TRACK (AH = 006H) 
FORMAT DRIVE (AH = 007H) 


ZERO OUT SECTOR FIELD 


GET DRIVE PARAMETERS 
SAVE REGISTERS 


ESTABLISH ADDRESSING 


ESTABLISH SEGMENT 
TEST WITHIN RANGE 
RESET THE STATUS INDICATOR 


SAVE THE DRIVE 


GENERATE OFFSET 
STORE OFFSET 
RESTORE DL 

DRIVE O OR DRIVE 1 
PORT_2 ADDRESS 


READ SWITCH SETTINGS 
DRIVE O OR 1 


RIGHT JUSTIFY THE SWITCH BITS 


ISOLATE THE TABLE BITS 


TABLE LENGTH IS 16 BYTES 
ADJUST 


MAX NUMBER OF CYLINDERS 
ADJUST FOR O-N 
AND RESERVE LAST TRACK 


HIGH TWO BITS OF CYLINDER 


SECTORS 
HEADS 


O-N RANGE 
DRIVE COUNT 


RESTORE REGISTERS 


EXIT 


OPERATION FAILED 


SET ERROR FLAG 
EXIT 
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748 SS SS SS 
749 3 DISK WRITE ROUTINE 
750 pectse seas a 
751 
752 0359 DISK_WRITE PROC NEAR 
753 0359 BO 4B MOV AL, DMA_WRITE 
754 0O35B C6 46 F8 OA MOV CMD_BLOCK+0, WRITE_CMD 
755 O35F E9 O55E R JMP DMA_OPN 
756 0362 DISK_WRITE ENDP 
757 
758 pessssa es 3352544355525 4535555535555 s$ 55554555 445S-5— 
759 3 DISK VERIFY 
760 ps eS SS aa eS Se SSeS eee t SSeS esas= 
761 
762 0362 DISK_VERF PROC NEAR 
763 0362 C6 46 F8 05 MOV CMD_BLOCK+0, CHK_TRK_CMD 
764 0366 E9 O54F R JMP NDMA_OPN 
765 0369 DISK_VERF ENDP 
766 
767 aa a ae aa 
768 ; FORMATTING (AH 
769 pe SSr Sts Snes SSS ees SSS Sa ess Se Sse SSS S 
770 
771 0369 FMT_TRK PROC NEAR 
772 0369 C6 46 F8 06 MOV CMD_BLOCK+0, FMTTRK_CMD 
773 O36D EB OA JMP SHORT FMT_CONT 
774 O36F FMT_TRK ENDP 
775 
776 O36F FMT_BAD PROC NEAR 
777 O36F C6 46 F8 07 MOV CMD_BLOCK+0, FMTBAD_CMD 
778 0373 EB 04 JMP SHORT FMT_CONT 
779 0375 FMT_BAD ENDP 
780 
781 0375 FMT_DRV PROC NEAR 
782 0375 C6 46 F8 04 MOV CMD_BLOCK+0, FMTDRV_CMD 
783 0379 FMT_DRV ENDP 
784 
785 0379 FMT_CONT: 
786 0379 80 66 FA CO AND CMD_BLOCK+2,11000000B 
787 O37D E9 O54F R JMP NDMA_OPN 
788 
789 aa a a a 
790 3 GET PARAMETERS 
791 a a a a ie 
792 
793 0380 GET_PARM_N LABEL NEAR 
794 0380 GET_PARM PROC FAR 
795 0380 1E PUSH DS 
796 0381 06 PUSH ES 
797 0382 53 PUSH BX 
798 
799 ASSUME DS:ABSO 
800 0383 2B CO SUB AX, AX 
801 0385 8E D8 MOV DS,AX 
802 0387 C4 1E 0104 R LES BX, HF_TBL_VEC 
803 
804 ASSUME DS:DATA 
805 038B B8 ---- R MOV AX, DATA 
806 O0O38E 8E D8 MOV DS,AX 
807 0390 80 EA 80 SUB DL, 80H 
808 0393 80 FA 08 CMP DL, MAX_FILE 
809 0396 73 57 JAE G4 
810 0398 C6 06 0074 R 0O MOV DISK_STATUS, 0 
811 039D 8A EA MOV CH,DL 
812 O39F 80 CA 01 OR DL,1 
813 O3A2 FE CA DEC DL 
814 03A4 DO E2 SHL DL,1 
815 O3A6 88 16 0077 R MOV PORT_OFF, DL 
816 O3AA 8A D5 MOV DL, CH 
817 O3AC 80 E2 01 AND DL, 00000001B 
818 O3AF 8A E2 MOV AH, DL 
819 03B1 E8 076D R CALL PORT_O 
820 03B4 42 INC Dx 
821 03B5 42 INC Dx 
822 03B6 EC IN AL, DX 
823 03B7 80 FC 00 CMP AH,O 
824 O3BA 75 04 JINZ Go 
825 O03BC DO E8 SHR AL,1 
826 O3BE DO E8 SHR AL,1 
827 03cO0 GO: 
828 03C0O 24 03 AND AL, 00000011B 
829 03C2 Bl 04 MOV CL,4 
830 03C4 D2 EO SHL AL,CL 
831 03C6 2A E4 SUB AH, AH 
832 03C8 03 D8 ADD BX, AX 
833 O3CA 26: 8B 07 MOV AX,ES: [BX] 
834 O03CD 2D 0002 SUB AX,2 
835 
836 O03D0 8A E8 MOV CH,AL 
837 03D2 25 0300 AND AX, 0300H 
838 03D5 D1 E8 SHR AX,1 
839 03D7 D1 E8 SHR Ax,1 
840 0O3D9 OC 11 OR AL,011H 
841 O3DB 8A C8 MOV CL,AL 
842 O3DD 26: 8A 77 02 MOV DH, ES: [BX] [2] 
843 0O3E1 FE CE DEC DH 
844 03E3 8A 16 0075 R MOV DL, HF_NUM 
845 03E7 2B CO SUB AX, AX 
846 O3E9 G5: 
847 O3E9 5B POP BX 
848 O3EA 07 POP ES 
849 O3EB 1F POP DS 
850 O3EC CA 0002 RET 2 
851 O3EF G4: 
852 O3EF C6 06 0074 R 07 MOV DISK_STATUS, INIT_FAIL 
853 O3F4 B4 07 MOV AH, INIT_FAIL 
854 O3F6 2A CO SUB AL,AL 
855 O3F8 2B D2 SUB DX, DX 
856 O3FA 2B C9 SUB CX, CX 
857 O3FC FO stTc 
858 O3FD EB EA JMP G5 
859 O3FF GET_PARM ENDP 
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860 PAGE 

861 a 
862 INITIALIZE DRIVE CHARACTERISTICS 

863 

864 FIXED DISK PARAMETER TABLE: 

865 

866 - THE TABLE IS COMPOSED OF A BLOCK DEFINED AS: 

867 

868 (1 WORD) — MAXIMUM NUMBER OF CYLINDERS 

869 (1 BYTE) — MAXIMUM NUMBER OF HEADS 

870 (1 WORD) — STARTING REDUCED WRITE CURRENT CYL 
871 (1 WORD) — STARTING WRITE PRECOMPENSATION CYL 
872 (1 BYTE) — MAXIMUM ECC DATA BURST LENGTH 

873 (1 BYTE) — CONTROL BYTE (DRIVE STEP OPTION) 
874 BIT 7 DISABLE DISK-ACCESS RETRIES 
875 BIT 6 DISABLE ECC RETRIES 

876 BITS 5-3 ZERO 

877 BITS 2-0 DRIVE OPTION 

878 (1 BYTE) — STANDARD TIME OUT VALUE (SEE BELOW) 
879 (1 BYTE) — TIME OUT VALUE FOR FORMAT DRIVE 
880 (1 BYTE) -— TIME OUT VALUE FOR CHECK DRIVE 

881 (1 WORD) -— LANDING ZONE 

882 (1 BYTE) — SECTORS/TRACK 

883 (1 BYTE) — RESERVED FOR FUTURE USE 

884 

885 — TO DYNAMICALLY DEFINE A SET OF PARAMETERS 














886 Hi BUILD A TABLE OF VALUES AND PLACE THE 


887 CORRESPONDING VECTOR INTO INTERRUPT 41. 

888 

889 NOTE: THE DEFAULT TABLE IS VECTORED IN FOR 

890 AN INTERRUPT 19H (BOOTSTRAP) 

891 

892 ON THE CARD SWITCH SETTINGS 

893 

894 DRIVE 0 DRIVE 1 

B95 

896 ON / 

897 -1- -2- / -3- -4- 

898 OFF / 

B99 

900 

901 TRANSLATION TABLE 

902 

903 DRIVE 0 : DRIVE 1 : TABLE ENTRY 

904 1/2 3/4 

905 en nnn nnn nn -- === 

906 ON ON : ON ON to) 

907 ON OFF : ON OFF 1 

908 OFF ON : OFF ON : 2 

909 OFF OFF : OFF OFF 3 

910 : 

911 poccce--------------------------------------------------- 

912 

913 03FF FD_TBL: 

914 

915 joccs- DRIVE TABLE 0 

916 

917 O3FF 0132 DW 0306D ; MAX CYLINDERS 

918 0401 04 DB 04D ; MAX HEADS 

919 0402 0132 DW 0306D ; START REDUCED WRITE CURRENT CYL 
920 0404 0000 DW to) ; START WRITE PRECOMPENSATION CYL 
921 0406 OB DB OBH ; MAX ECC BURST DATA LENGTH 
922 0407 05 DB 00000101B ; CONTROL BYTE 

923 0408 10 DB 010H ; STANDARD TIME OUT 

924 0409 co DB OcOH ; TIME OUT FOR FORMAT DRIVE 
925 040A 28 DB 028H ; TIME FOR CHECK DRIVE 

926 040B 0132 DW 0306D ; LANDING ZONE 

927 040D 11 DB 017D ; SECTORS/TRACK 

928 O040E 00 DB to) ; RESERVED 

929 

930 jocos- DRIVE TABLE 1 

931 

932 O40F 0264 DW 0612D ; MAX CYLINDERS 

933 0411 04 DB 04D ; MAX HEADS 

934 0412 0264 DW 0612D ; START REDUCED WRITE CURRENT CYL 
935 0414 0000 DW to) ; START WRITE PRECOMPENSATION CYL 
936 0416 0B DB OBH ; MAX ECC BURST DATA LENGTH 
937 0417 05 DB 000000101B ; CONTROL BYTE 

938 0418 28 DB 028H ; STANDARD TIME OUT 

939 0419 EO DB OEOH ; TIME OUT FOR FORMAT DRIVE 
940 041A 42 DB 042H ; TIME FOR CHECK DRIVE 

941 041B 0297 DW 0663D ; LANDING ZONE 

942 041D 11 DB 017D ; SECTORS/TRACK 

943 041E 00 DB to) ; RESERVED 

944 

945 jocos- DRIVE TABLE 2 

946 

947 O041F 0267 DW 0615D ; MAX CYLINDERS 

948 0421 04 DB 04D ; MAX HEADS 

949 0422 0267 DW 0615D ; START REDUCED WRITE CURRENT CYL 
950 0424 012c DW 0300D ; START WRITE PRECOMPENSATION CYL 
951 0426 0B DB OBH ; MAX ECC BURST DATA LENGTH 
952 0427 05 DB 00000101B ; CONTROL BYTE 

953 0428 28 DB 028H ; STANDARD TIME OUT 

954 0429 EO DB OEOH ; TIME OUT FOR FORMAT DRIVE 
955 042A 42 DB 042H ; TIME FOR CHECK DRIVE 

956 042B 0267 DW 0615D ; LANDING ZONE 

957 042D 11 DB 017D ; SECTORS/TRACK 

958 042E 00 DB to) ; RESERVED 

959 

960 jocos- DRIVE TABLE 3 

961 

962 042F 0132 DW 0306D ; MAX CYLINDERS 

963 0431 08 DB osD ; MAX HEADS 

964 0432 0132 DW 0306D ; START REDUCED WRITE CURRENT CY 
965 0434 0080 DW 0128D ; START WRITE PRECOMPENSATION CYL 
966 0436 0B DB OBH ; MAX ECC BURST DATA LENGTH 
967 0437 05 DB 00000101B ; CONTROL BYTE 

968 0438 28 DB 028H ; STANDARD TIME OUT 

969 0439 EO DB OEOH ; TIME OUT FOR FORMAT DRIVE 
970 043A 42 DB 042H ; TIME FOR CHECK DRIVE 

971 043B 0150 DW 0336D ; LANDING ZONE 

972 043D 11 DB 017D ; SECTORS/TRACK 

973 043E 00 DB to) ; RESERVED 
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974 
975 jooo----------------------------------------------------- 
976 ; INITIALIZE DRIVE (AH = 09H) 
977 pe Sa SS ss Sse SS Sa Ss sa se a SSS se Sessa 
978 
979 043F INIT_DRV PROC NEAR 
980 
981 joc. DO DRIVE ZERO 
982 
983 043F C6 46 F8 OC MOV CMD_BLOCK+0, INIT_DRV_CMD 
984 0443 C6 46 F9 00 MOV CMD_BLOCK+1, 0 ; SET FOR DRIVE 0 
985 0447 E8 0458 R CALL INIT_DRV_R SEND THE PARAMETERS 
986 044A 72 OB Jc INIT_DRV_OUT 7; ERROR? 
987 
988 i DO DRIVE ONE 
989 
990 044c cé 46 F8 OC MOV CMD_BLOCK+0, INIT_DRV_CMD 
991 0450 C6 46 F9 20 MOV CMD_BLOCK+1,00100000B ; SET TO DRIVE 1 
992 0454 E8 0458 R CALL INIT_DRV_R ; SEND THE PARAMETERS 
993 0457 INIT_DRV_OUT: 
994 0457 C3 RET ; EXIT 
995 0458 INIT_DRV ENDP 
996 
997 0458 INIT_DRV_R PROC NEAR 
998 0458 2A CO SUB AL,AL 
999 045A E8 057C R CALL COMMAND ; ISSUE THE COMMAND 
1000 045D 73 01 INC Bl ; DX = PORT O AFTER CALL 
1001 O45F C3 RET 
1002 0460 Bl: 
1003 0460 8C D9 MOV cx,DS ; SAVE SEGMENT 
1004 
1005 ASSUME DS:ABSO 
1006 0462 2B CO SUB AX, AX 
1007 0464 8E D8 MOV DS,AX ; ESTABLISH SEGMENT 
1008 0466 C4 1E 0104 R LES BX, HF_TBL_VEC ; LOAD THE TABLE VECTOR 
1009 O46A 8E D9 MOV DS,CxX ; RESTORE SEGMENT 
1010 
1011 ASSUME DS:DATA 
1012 ean aaa a le lee oa 
1013 3 DETERMINE PARAMETER TABLE OFFSET 
1014 ; USING CONTROLLER PORT TWO AND 
1015 ; DRIVE NUMBER SPECIFIER (0-1) 
1016 ta ar en a a Ra en re tea ne 
1017 046cC 42 INC Dx 
1018 O046D 42 INC DX ; ADDRESS PORT 2 
1019 046E EC IN AL, DX ; READ THE SWITCH SETTINGS 
1020 O46F 8A 66 FO MOV AH, CMD_BLOCK+1 
1021 0472 80 E4 20 AND AH, 00100000B ; DRIVE 0 OR 1 
1022 0475 75 04 JINZ B2 
1023 0477 DO E8 SHR AL,1 , ADJUST 
1024 0479 DO E8 SHR AL,1 
1025 047B B2: 
1026 047B 24 03 AND AL,011B ; ISOLATE 
1027 047D Bl 04 MOV CL,4 
1028 047F D2 EO SHL AL, CL ; ADJUST 
1029 0481 2A E4 SUB AH, AH 
1030 0483 03 D8 ADD BX, AX 
1031 0485 B4 09 MOV AH,00001001B ; SET MASK FOR DATA MODE CPU TO CARD 
1032 
1033 joo SEND DRIVE PARAMETERS MOST SIGNIFICANT BYTE FIRST 
1034 
1035 0487 BF 0001 MOV DI,1 ; SEND MSB OF MAX CYLINDER 
1036 048A E8 04E9 R CALL INIT_DRV_S 
1037 048D 72 4C Jc B3 
1038 
1039 048F BF 0000 MOV DI,O ; SEND LSB OF MAX CYLINDER 
1040 0492 E8 04E9 R CALL INIT_DRV_S 
1041 0495 72 44 Jc B3 
1042 
1043 0497 BF 0002 MOV DI,2 ; SEND THE MAXIMUM HEADS 
1044 049A E8 04E9 R CALL INIT_DRV_S 
1045 049D 72 3c JC B3 
1046 
1047 049F BF 0004 MOV DI,4 ; SEND MSB OF REDUCE WRITE CURRENT 
1048 04A2 E8 04E9 R CALL INIT_DRV_S ; CYLINDER 
1049 04A5 72 34 Jc B3 
1050 
1051 04A7 BF 0003 MOV DI,3 ; SEND LSB OF REDUCE WRITE CURRENT 
1052 O4AA E8 04E9 R CALL INIT_DRV_S Hi CYLINDER 
1053 O4AD 72 2C JC B3 
1054 
1055 O4AF BF 0006 MOV DI,6 ; SEND MSB OF WRITE PRECOMP CYLINDER 
1056 04B2 E8 04E9 R CALL INIT_DRV_S 
1057 04B5 72 24 Jc B3 
1058 
1059 04B7 BF 0005 MOV DI,5 ; SEND LSB OF WRITE PRECOMP CYLINDER 
1060 O4BA E8 04E9 R CALL INIT_DRV_S 
1061 O4BD 72 1c Jc B3 
1062 
1063 O4BF BF 0007 MOV DI,7 ; SEND ECC BURST LENGTH 
1064 04C2 E8 04E9 R CALL INIT_DRV_S 
1065 04C5 72 14 Jc B3 
1066 
1067 04C7 BF 0008 MOV DI,8 ; LOAD THE CONTROL BYTE AND PLACE IN 
1068 O4CA 26: 8A 01 MOV AL, ES: [BX+DI] ; MEMORY AT 40:76H 
1069 O04CD A2 0076 R MOV CONTROL_BYTE, AL 
1070 
1071 04D0 2B c9 SUB Cx, CX 
1072 04D2 B4 OF MOV AH,00001111B ; SET THE MASK FOR STATUS MODE 
1073 04D4 BS: 
1074 04D4 E8 068D R CALL HD_WAIT GO WAIT FOR THE STATE TO HAPPEN 
1075 04D7 73 09 INC B6 JMP TO READ THE STATUS BYTE 
1076 04D9 E2 F9 LOOP BS TRY AGAIN 
1077 04DB B3: 
1078 O04DB C6 06 0074 R O07 MOV DISK_STATUS, INIT_FAIL ; OPERATION FAILED 
1079 O4E0 F9 stc ; SET THE ERROR CONDITION 
1080 O04E1 C3 RET 
1081 04E2 B6: 
1082 O04E2 4A DEC Dx ADDRESS PORT 0 
1083 04E3 EC IN AL, DX READ STATUS BYTE OF THE OPERATION 
1084 04E4 24 02 AND AL,2 MASK ERROR BIT 
1085 04E6 75 F3 JINZ B3 ; ERROR BIT SET? 
1086 O04E8 C3 RET 
1087 04E9 INIT_DRV_R ENDP 
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1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 


04E9 
04E9 
04EC 
O04EE 
O4EF 
O4F2 
04F3 
04F3 
O4F4 


O4F4 
O4F4 
O4F7 
O4F9 
04FD 
O4FF 
o501 


o501 
o501 
0504 
0506 
O50A 
o50c 
O050E 


O050E 
O50E 
0511 
0513 
0514 
0515 


0515 
0515 
0519 
051B 


051B 
051B 
O51F 
0523 
0525 
0527 


0527 
0527 
052B 
O52F 
0531 
0533 


0533 
0533 
0537 
0539 


0539 
0539 
053D 
053F 


E8 068D R 


72 
4A 


26: 


EE 


c3 


E8& 
72 
cé 
BO 
EB 


E8& 
72 
cé 
BO 
EB 


8A 
3c 
F5 
c3 


cé 
EB 


cé 
cé 
BO 
EB 


cé 
cé 
BO 
EB 


cé 
EB 


cé 
EB 


05 


8A 01 


O50E R 


5F 
46 
47 
5D 


F8 E5 


O50E R 


52 
46 
4B 
50 


46 
80 


46 
34 


46 
46 
47 
37 


46 
46 
4B 
2B 


46 
16 


46 
10 


F8 E6 


FC 


F8 OB 


F8 OE 
Fc 01 


F8 OF 
Fc 01 


F8 00 


F8 01 


FIXED DISK BIOS 10-28-85 


;-—-—--— SEND THE BYTE OUT TO THE CONTROLLER 





INIT_DRV_S PROC NEAR 
CALL HD_WAIT ; GO WAIT FOR REQUEST 
Jc D1 AFTER CALL DX = PORT 1 
DEC Dx ; ADDRESS PORT 0 
MOV AL, ES: [BX+DI] 
ouT DxX,AL ; WRITE THE DATA TO THE CARD 
D1: 
RET 
INIT_DRV_S ENDP 
; READ LONG (AH = OAH) 
RD_LONG PROC NEAR 
CALL CHK_LONG ; CHECK LIMITS 
Jc G8 
MOV CMD_BLOCK+0, RD_LONG_CMD 
MOV AL, DMA_READ 
JMP SHORT DMA_OPN 
RD_LONG ENDP 
; WRITE LONG (AH = OBH) 
WR_LONG PROC NEAR 
CALL CHK_LONG ; CHECK LIMITS 
Jc G8 
MOV CMD_BLOCK+0, WR_LONG_CMD 
MOV AL, DMA_WRITE 
JMP SHORT DMA_OPN 
WR_LONG ENDP 
CHK_LONG PROC NEAR 
MOV AL, CMD_BLOCK+4 ; LOAD THE NUMBER OF SECTORS 
CMP AL, 080H ; COMPARE WITH LIMITS 
CMC ; SET THE CONDITION 
RET 
CHK_LONG ENDP 
; SEEK (AH = OCH) 
DISK_SEEK PROC NEAR 
MOV CMD_BLOCK+0, SEEK_CMD 
JMP SHORT NDMA_OPN 
DISK_SEEK ENDP 
; READ SECTOR BUFFER (AH = OEH) 
RD_BUFF PROC NEAR 
MOV CMD_BLOCK+0, RD_BUFF_CMD 
MOV CMD_BLOCK+4,1 ; ONLY ONE BLOCK 
MOV AL, DMA_READ 
JMP SHORT DMA_OPN 
RD_BUFF ENDP 
; WRITE SECTOR BUFFER (AH = OFH) 
WR_BUFF PROC NEAR 
MOV CMD_BLOCK+0, WR_BUFF_CMD 
MOV CMD_BLOCK+4,1 ; ONLY ONE BLOCK 
MOV AL, DMA_WRITE 
JMP SHORT DMA_OPN 
WR_BUFF ENDP 
; TEST DISK READY (AH = 010H) 
TST_RDY PROC NEAR 
MOV CMD_BLOCK+0, TST_RDY_CMD 
JMP SHORT NDMA_OPN 
TST_RDY ENDP 





; RECALIBRATE (AH = 0114) 





HDISK_RECAL PROC NEAR 
MOV CMD_BLOCK+0, RECAL_CMD 
MP SHORT NDMA_OPN 
HDISK_RECAL ENDP 





ISSUE THE COMMAND 


SET UP FOR DMA OPERATION 


ISSUE THE COMMAND 


INITIALIZE THE DISK CHANNEL 


NO INTERRUPTS 
READ THE MASK 
ENABLE IRQ-5 
WRITE THE MASK OUT 
PROCEDURE DOES STI 


SEE IF THERE IS AN ERROR 


STER MASK 


GET THE BASE ADDRESS 


ADDRESS PORT 2 

ISSUE CONTROLLER SELECT PULSE 
ADDRESS PORT 

WAIT COUNT 

WRITE OMA MASK REGISTER 


ADDRESS PORT 1 


READ THE HARDWARE STATUS 


CHECK FOR BUSY, COMMAND 
; AND REQUEST BITS 
KEEP TRYING 


SET THE ERROR CONDITION 
ERROR RETURN 


SET FOR 6 BYTES OF COMMAND 
ADDRESS PORT 0 

SAVE THE BASE POINTER 

SET FIRST BYTE OF COMMAND BLOCK 
NO INTERRUPTS IN COMMAND SEQUENCE 


GET A COMMAND BYTE 

ALLOW AT LEAST 2us BETWEEN EACH BYTE 
ON SENDING THE COMMAND SEQUENCE 

DO MORE 

RESTORE THE BASE POINTER 

INTERRUPTS BACK ON 
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1180 PAGE 

1181 pRtSt Ss Sas eS aS - SSeS SSeS SSS oe SSS Sse 
1182 3 CONTROLLER RAM DIAGNOSTICS 

1183 pesos ss ssa ses e Sosa asa sass SS SS SS = 
1184 

1185 O53F RAM_DIAG PROC NEAR 

1186 O53F C6 46 F8 EO MOV CMD_BLOCK+0, RAM_DIAG_ CMD 
1187 0543 EB OA JMP SHORT NDMA_OPN 

1188 0545 RAM_DIAG ENDP 

1189 

1190 ; 

1191 ; 

1192 ; 

1193 

1194 0545 CHK_DRV PROC NEAR 

1195 0545 C6 46 F8 E3 MOV CMD_BLOCK+0, CHK_DRV_CMD 
1196 0549 EB 04 JMP SHORT NDMA_OPN 

1197 054B CHK_DRV ENDP 

1198 

1199 a a a a pa ge ae re 
1200 3 CONTROLLER INTERNAL DIAGNOSTICS 
1201 aa ar at an — at ale al ae a la 
1202 

1203 054B CNTLR_DIAG PROC NEAR 

1204 054B C6 46 F8 E4 MOV CMD_BLOCK+0, CNTLR_DIAG_CMD 
1205 O54F CNTLR_DIAG ENDP 

1206 

1207 PERS SS SoSH RSS Sssae ass sea SSeS SSS 
1208 3 SUPPORT ROUTINES 

1209 a a a ol rn eg a ig 
1210 

1211 O54F NDMA_OPN: 

1212 054F BO 02 MOV AL,02H 

1213 0551 E8 O57C R CALL COMMAND ; 
1214 0554 72 22 Jc G11 

1215 0556 EB 16 JMP SHORT G3 

1216 0558 G8: 

1217 0558 C6 06 0074 R 09 MOV DISK_STATUS , DMA_BOUNDARY 
1218 O55D C3 RET 

1219 O55E DMA_OPN: 

1220 O55E E8 O6A5 R CALL DMA_SETUP H 
1221 0561 72 F5 Jc G8 

1222 0563 BO 03 MOV AL, 03H 

1223 0565 E8 O57C R CALL COMMAND $ 
1224 0568 72 OE Jc Gil 

1225 O56A BO 03 MOV AL, 03H 

1226 O56C E6 OA ouT DMA+10,AL ; 
1227 O56E G3: 

1228 O56E FA CLI 1 
1229 O56F E4 21 IN AL, INTAO1 ; 
1230 0571 24 DF AND AL, ODFH ; 
1231 0573 E6 21 ouT INTAO1,AL ; 
1232 0575 E8 0700 R CALL WAIT_INT 4 
1233 0578 G11: 

1234 0578 E8 O5AD R CALL ERROR_CHK ; 
1235 057B C3 RET ; EXIT 
1236 

1237 Fc ec ea ml ee a ra al el mabe ee 
1238 ; COMMAND 

1239 3 THIS ROUTINE OUTPUTS THE COMMAND BLOCK 
1240 ; INPUT 

1241 ; AL = CONTROLLER DMA/INTERRUPT REGI. 
1242 ; 

1243 Pe DS Ce ee eee rae See Se ee ee 
1244 

1245 057C COMMAND PROC NEAR 

1246 057C E8 076D R CALL PORT_O H 
1247 O57F 42 INC Dx 

1248 0580 42 INC Dx ; 
1249 0581 EE ouT DxX,AL ; 
1250 0582 42 INC Dx ;. 
1251 0583 2B C9 SUB Cx, CX } 
1252 0585 EE ouT DxX,AL ; 
1253 0586 4A DEC Dx 

1254 0587 4A DEC Dx ; 
1255 0588 WAIT_BUSY: 

1256 0588 EC IN AL, DX i; 
1257 0589 24 OF AND AL, OFH 

1258 058B 3c OD CMP AL,R1_BUSY OR R1_BUS OR R1_REQ ; 
1259 058D 74 09 JE cl 

1260 O58F E2 F7 LOOP WAIT_BUSY 3 
1261 0591 C6 06 0074 R 80 MOV DISK_STATUS, TIME_OUT 

1262 0596 F9 sTc ; 
1263 0597 C3 RET ; 
1264 0598 cl: 

1265 0598 B9 0006 MOV Cx,6 ; 
1266 O59B 4A DEC Dx ; 
1267 059C 8B F5 MOV SI,BP ; 
1268 O59E 83 ED 08 SUB BP,8 ; 
1269 O5A1l FA CLI } 
1270 O5A2 CM3: 

1271 O5A2 8A 46 00 MOV AL, [BP] ; 
1272 O5A5 EE ouT DX, AL ; 
1273 O5A6 45 INC BP ; 
1274 O5A7 E2 F9 LOOP CM3 ; 
1275 O5A9 8B EE MOV BP,SI ; 
1276 O5AB FB STI ; 
1277 O5AC C3 RET 


1278 


O5AD 


COMMAND ENDP 
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1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
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BYTE 0 


BYTE 1 


BYTE 2 


BYTE 3 


---- 10/28/85 FIXED DISK BIOS 

PAGE 
O5AD ERROR_CHK 
O5AD AO 0074 R MOV 
O5B0 OA co OR 
O5B2 75 01 NZ 
O5B4 C3 RET 
O5B5 G21: 
O5B5 C6 46 F8 03 MOV 
O5B9 2A CO SUB 
O5BB E8 057C R CALL 
O5BE 72 26 gc 
O5cO 2B FF SUB 
05c2 B9 0004 MOV 
O5c5 B4 OB MOV 
05C7 G22: 
05C7 E8 068D R CALL 
O5CA 72 1A gc 
o5cc 4A DEC 
O5CD EC IN 
O5CE 88 43 F8 MOV 
O5D1 47 INC 
O5D2 E2 F3 LOOP 
05D4 B4 OF MOV 
O5D6 E8 068D R CALL 
O5D9 72 OB gc 
O5DB 4A DEC 
O5DC EC IN 
O5DD A8 02 TEST 
O5DF 74 OF Rr 
O5E1 C6 06 0074 R FF MOV 
O5E6 G24: 
O5E6 F9 stc 
O5E7 C3 RET 
O5E8 ERROR_CHK 
O5E8 061E R T_o DW 
O5EA 062B R DW 
O5EC 066D R DW 
O5EE 067A R DW 
O5FO STAT_ERR: 
O5FO 8A 5E F8 MOV 
O5F3 8A C3 MOV 
O5F5 24 OF AND 
O5F7 80 E3 30 AND 
O5FA 2A FF SUB 
O5FC Bl 03 MOV 
O5FE D3 EB SHR 
0600 2E: FF A7 O5E8 R MP 
0605 TYPEO_TABLE 
0605 00 20 40 cc 80 00 DB 

20 

060c 00 40 DB 
= 0009 TYPEO_LEN 
060E TYPE1_TABLE 
O60E 04 10 02 00 04 DB 
0613 40 00 00 11 oB DB 
= 000A TYPE1_LEN 
0618 TYPE2_TABLE 
0618 01 02 01 DB 
= 0003 TYPE2_LEN 
061B TYPE3_TABLE 
061B 20 20 10 DB 
= 0003 TYPE3_LEN 


SENSE STATUS BYTES 


BIT 
BIT 
BITS 
BITS 


BITS 6 
BIT 5 
i) 


BITS 


BITS 
BITS 


BITS 


PROC 
AL, DISK_STATUS 
AL, AL 
G21 





ADDRESS VALID, WHEN SET 
SPARE, SET TO ZERO 
ERROR TYPE 

ERROR CODE 





ZERO 
DRIVE (0-1) 
HEAD NUMBER 





CYLINDER HIGH 
SECTOR NUMBER 





CYLINDER LOW 





NEAR 


ANYTHING IN AL? 


PERFORM SENSE STATUS 





TIMES 


CMD_BLOCK+0, SENSE_CMD 


AL, AL 
COMMAND 
G24 


DI,DI 
cx,4 


AH, 00001011B 


HD_WAIT 
G24 

DX 

AL, DX 


[DI+CMD_BLOCK] , AL 


DI 
G22 


AH,00001111B 


HD_WALT 
G24 

DX 

AL, DX 
AL,2 
STAT_ERR 


DISK_STATUS,SENSE_FAIL ; 


ENDP 


TYPE_O 
TYPE_1 
TYPE_2 
TYPE_3 


BL, CMD_BLOCK+0 ; 


AL, BL 
AL, OFH 


BL, 00110000B H 


BH, BH 
cL,3 
BX, CL 


ERROR 


READ FOUR BYTES 


; GO WAIT FOR DATA INPUT STATE 


ADDRESS PORT 0 
READ THE DATA BYTE i 


NEXT DATA LOCATION co 


ADDRESS PORT 0 

READ THE STATUS BYTE 
SENSE OPERATION FAIL? 
GO GET THE ERROR. 


; ERROR TYPE JUMP TABLE 


GET ERROR BYTE 


; ADJUST 


WORD PTR CS: [BX + OFFSET T_0O] 


LABEL 


BYTE 
0, BAD_CNTLR, BAD_SEEK, WRITE_FAULT, TIME_OUT, 0, BAD_CNTLR 


0, BAD_SEEK 


EQU 


LABEL 


$-TYPEO_TABLE 


BYTE 
RECORD_NOT_FND, BAD_ECC, BAD_ADDR_MARK, 0, RECORD_NOT_F'ND 





BAD_SEEK, 0, 0, DATA_CORRECTED, BAD_TRACK 


EQU 


LABEL 


$-TYPE1_TABLE 


BYTE 


BAD_CMD, BAD_ADDR_MARK, BAD_CMD 





EQU 


LABEL 


$-TYPE2_TABLE 


BYTE 


BAD_CNTLR, BAD_CNTLR, BAD_ECC 





EQU 


$-TYPE3_TABLE 


CHECK IF THERE WAS AN ERROR 


SENSE STATUS CAN BE ISSUED MULTIPLE 


WRITE ZERO IN INT/DMA MASK 
ISSUE SENSE STATUS COMMAND 
CANNOT RECOVER-EXIT WITH COMMAND 
SET INDEX POINTER TO ZERO 


SET MASK FOR DATA MODE CARD TO CPU 


STORE AWAY SENSE BYTES 


LOOP TILL ALL FOUR READ. 
SET THE MASK FOR STATUS MODE 
GO WAIT FOR STATUS STATE 


SET SENSE OPERATION FAIL 


ISOLATE THE TYPE OF ERROR 





CHECK IF ERROR IS DEFINED 
TABLE LOOKUP 
SET ERROR CODE 


CHECK IF ERROR IS DEFINED 
TABLE LOOKUP 

SET ERROR CODE 

CORRECTED ECC 


ISSUE THE COMMAND 


SET MASK FOR DATA INPUT CARD TO CPU 
GO WAIT FOR THE INPUT STATE 


ADDRESS PORT 0 

READ THE LENGTH OF THE ERROR 
CORRECTED AND SAVE IN CL 
SET MASK FOR STATUS STATE 

GO WAIT FOR STATUS STATE 


ADDRESS PORT 0 
READ THE STATUS BYTE 
ERROR BIT SET? 


CHECK IF ERROR IS DEFINED 


TABLE LOOKUP 
SET ERROR CODE 


CHECK IF ERROR IS DEFINED 


TABLE LOOKUP 
SET ERROR CODE 





SAVE CX 
SET THE LOOP COUNT 


PORT_1 ADDRESS 

READ THE HARDWARE STATUS 

CLEAR UPPER NIBBLE OF HARDWARE STATUS 
CHECK THE STATE WITH THE MASK 

JMP IF O.K WITH CARRY CLEARED 

TRY AGAIN 


SET ERROR CONDITION 


RESTORE CX 


IBM Personal Computer Assembler Version 2.00 Page 1-14 
DISK2 ---- 10/28/85 FIXED DISK BIOS 10-28-85 

1378 PAGE 

1379 7. TYPE O ERROR 

1380 

1381 O61E TYPE_O 

1382 061E BB 0605 R MOV BX,OFFSET TYPEO_TABLE 
1383 0621 3c 09 CMP AL, TYPEO_LEN ; 
1384 0623 73 62 JAE UNDEF_ERR_L 

1385 0625 2E: D7 XLAT CS: TYPEO_TABLE 7 
1386 0627 A2 0074 R MOV DISK_STATUS, AL ; 
1387 O62A C3 RET 

1388 

1389 ;---s> TYPE 1 ERROR 

1390 

1391 062B TYPE_1 

1392 062B BB O60E R MOV BX,OFFSET TYPE1_TABLE 
1393 O62E 8B C8 MOV Cx, AX 

1394 0630 3C OA CMP AL, TYPE1_LEN } 
1395 0632 73 53 JAE UNDEF_ERR_L 

1396 0634 2E: D7 XLAT CS: TYPE1_TABLE 

1397 0636 A2 0074 R MOV DISK_STATUS, AL 

1398 0639 80 El 08 AND CL, 08H ; 
1399 063C 80 F9 08 CMP CL, 08H 

1400 063F 75 29 JINZ G30 

1401 

1402 j-—-s> OBTAIN ECC ERROR BURST LENGTH 
1403 

1404 0641 C6 46 F8 OD MOV CMD_BLOCK+0, RD_ECC_CMD 
1405 0645 2A CO SUB AL,AL 

1406 0647 E8 O57C R CALL COMMAND ; 
1407 064A 72 1E JC G30 

1408 064C B4 OB MOV AH,00001011B ; 
1409 064E E8 068D R CALL HD_WAIT ; 
1410 0651 72 17 Jc G30 

1411 0653 4A DEC Dx ; 
1412 0654 EC IN AL, DX ; 
1413 0655 8A C8 MOV CL,AL ; 
1414 0657 B4 OF MOV AH,00001111B ; 
1415 0659 E8 068D R CALL HD_WAIT 3 
1416 065C 72 OC JC G30 

1417 O65E 4A DEC Dx ; 
1418 O65F EC IN AL, DX ; 
1419 0660 A8 02 TEST AL,2 ; 
1420 0662 74 06 JZ G30 

1421 0664 C6 06 0074 R 20 MOV DISK_STATUS, BAD_CNTLR 
1422 0669 F9 stTc 

1423 066A G30: 

1424 O66A 8A Cl MOV AL,CL 

1425 O66C C3 RET 

1426 

1427 = TYPE 2 ERROR 

1428 

1429 O66D TYPE_2 

1430 O66D BB 0618 R MOV BX,OFFSET TYPE2_TABLE 
1431 0670 3c 03 CMP AL, TYPE2_LEN ; 
1432 0672 73 13 JAE UNDEF_ERR_L 

1433 0674 2E: D7 XLAT CS: TYPE2_TABLE 3 
1434 0676 A2 0074 R MOV DISK_STATUS, AL ; 
1435 0679 C3 RET 

1436 

1437 j-- TYPE 3 ERROR 

1438 

1439 O67A TYPE_3 

1440 O67A BB 061B R MOV BX,OFFSET TYPE3_TABLE 
1441 067D 3c 03 CMP AL, TYPE3_LEN ; 
1442 O67F 73 06 JAE UNDEF_ERR_L 

1443 0681 2E: D7 XLAT CS: TYPE3_TABLE 3 
1444 0683 A2 0074 R MOV DISK_STATUS, AL ; 
1445 0686 C3 RET 

1446 

1447 0687 UNDEF_ERR_L: 

1448 0687 C6 06 0074 R BB MOV DISK_STATUS, UNDEF_ERR 
1449 068C C3 RET 

1450 

1451 ce aa ll 
1452 ; ON ENTRY AH CONTAINS THE CONTROLLER BUS 
1453 ; MASK USED TO CHECK THE HARDWARE STATUS. 
1454 ; 

1455 068D HD_WAIT PROC NEAR 

1456 O068D 51 PUSH cx 4 
1457 O68E 2B C9 SUB Cx, CX : 
1458 0690 Li: 

1459 0690 E8 076D R CALL PORT_O 

1460 0693 42 INC Dx ; 
1461 0694 EC IN AL,DX ; 
1462 0695 24 OF AND AL, 00001111B ; 
1463 0697 3A C4 CMP AL, AH ; 
1464 0699 74 08 JZ L2 ; 
1465 069B E2 F3 LOOP Li ; 
1466 069D C6 06 0074 R 80 MOV DISK_STATUS, TIME_OUT 

1467 O6A2 FO stTc } 
1468 O6A3 L2: 

1469 O6A3 59 POP cx : 
1470 O06A4 C3 RET 

1471 O6A5 HD_WAIT ENDP 
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1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 


O6A5 
O6A5 
O6A9 


O6AB 
O6aAC 


O6AD 
O6AD 
O6AE 
O6BO 
O6B2 
O6B4 
O6B6 
O6B8 
O6BA 
O6BC 
O6BE 


o6c1 
06c3 
o6c5 
06C7 
06c9 
06CB 
o6cD 


O6CF 
O6D2 
O6D4 
O6D6 


O6D7 
O6DB 


Oé6DD 
O6E1 
O6E3 
O6E3 
O6E6 
O6E7 
O6E9 
O6EC 
O6ED 
O6EF 
O6FO 
O6F1 
O6F2 
O6F2 
O6F4 
O6F6 
O6F8 
O6FA 
O6FB 
O6FD 
O6FF 


0700 
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80 
72 


FQ 
c3 


FA 
E6 
Bl 
E6 
8c 
D3 
8A 
24 
03 
80 


8B 
E6 
8A 
E6 
8A 
24 
E6 


8A 
DO 
32 
48 


80 
74 


80 
75 


BS 
53 
2a 
8A 
52 
F7 
5A 
5B 
48 


8B 
E6 
8A 
E6 
FB 
8B 
03 
c3 


7E 
02 


oc 
04 
OB 
co 
co 
E8& 
FO 
c3 
DS 


FO 
06 
c4 
06 
cs 
OF 
82 


66 
E4 
co 


7E 
06 


7E 
OF 


Fc 81 


oo 


FC 


F8 E5 


F8 E6 


0204 


FF 
5E 


E3 


c8 
07 
c4 
07 


cé 
c1 


FC 
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DMA_SETUP 


THIS ROUTINE SETS UP FOR DMA OPERATIONS. 


INPUT 
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= MODE BYTE FOR THE DMA 





(ES:BX) = ADDRESS TO READ/WRITE THE DATA 


OUTPUT 


7 (AL) 
7 (AX) 


a1: 


MOV 
ouT 
MOV 
ouT 
MOV 
AND 
out 


DESTROYED 


PROC NEAR 
CMD_BLOCK+4, 81H 
a1 


DMA+12, AL 
CL, 4 
DMA+11, AL 
AX, ES 

AX, CL 

CH, AL 

AL, OFOH 
AX, BX 
CH,O 


SI,AX 
DMA+6, AL 
AL, AH 
DMA+6, AL 
AL, CH 

AL, OFH 
DMA_HIGH, AL 


pose DETERMINE COUNT 


MOV 
SHL 
xXOR 
DEC 


AH, CMD_BLOCK+4 
AH, 1 

AL, AL 

AX 





BLOCK COUNT OUT OF RANGE 


SET THE ERROR CONDITION 


NO MORE INTERRUPTS 

SET THE FIRST/LAST F/F 

SHIFT COUNT 

OUTPUT THE MODE BYTE 

GET THE ES VALUE 

ROTATE LEFT 

GET HIGHEST NIBBLE OF ES TO CH 
ZERO THE LOW NIBBLE FROM SEGMENT 
TEST FOR CARRY FROM ADDITION 

CARRY MEANS HIGH 4 BITS MUST BE INC 


SAVE START ADDRESS 
OUTPUT LOW ADDRESS 


OUTPUT HIGH ADDRESS 
GET HIGH 4 BITS 


OUTPUT THE HIGH 4 BITS TO PAGE REG 


RECOVER BLOCK COUNT 

MULTIPLY BY 512 BYTES PER SECTOR 
CLEAR LOW BYTE 

AND DECREMENT VALUE BY ONE 


tied HANDLE READ AND WRITE LONG (516D BYTE BLOCKS) 


CMP 
JE 


CMP 
JNE 
ADD4: 
MOV 
PUSH 
SUB 
MOV 
PUSH 


POP 
POP 
DEC 
320: 
MOV 
ouT 
MOV 
ouT 
STI 
MOV 


RET 


DMA_SETUP 


CMD_BLOCK+0, RD_LONG_CMD 


ADD4 


CMD_BLOCK+0, WR_LONG_CMD 


J20 


AX, 516D 

BX 

BH, BH 

BL, CMD_BLOCK+4 
Dx 

BX 

Dx 

BX 

AX 


CX, AX 
DMA+7, AL 
AL, AH 

DMA+7, AL 


AX, SI 
AX, CX 


ENDP 


ONE BLOCK (512) PLUS 4 BYTES ECC 


BLOCK COUNT TIMES 516 


ADJUST 


SAVE COUNT VALUE 
LOW BYTE OF COUNT 


HIGH BYTE OF COUNT 
INTERRUPTS BACK ON 
RECOVER ADDRESS VALUE 
ADD, TEST FOR 64K OVERFLOW 
RETURN TO CALLER 

CY SET BY ABOVE IF ERROR 
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1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 


0700 


0700 
0701 
0703 
0705 
0707 


070B 


070D 
O70F 
0713 
0716 
0719 


071B 
O71F 
o721 
0724 


0726 
O72A 
O72A 
072B 
072E 
0730 


0731 


0733 
0733 
0736 
0737 
0738 
073A 


073c 
073E 
073F 


0741 
0746 
0746 
0747 
0748 
O74A 
074E 
0751 
0753 
0754 


0755 


0755 
0755 
0756 
0758 
O75A 
075B 
075D 
O75F 
O761 
0763 
0765 
0766 
0769 
076B 
076c 
076D 


076D 
076D 
0770 
0774 
0775 


0775 
0775 


FB 
8c 
2B 
8E 
c4 


8E 


2a 


26: 


8A 
80 
75 


26: 


EB 
80 
75 


26: 


Fs 
BS 
cD 
FB 


2B 


E8& 
42 
EC 
As 
75 


E2 
4B 
75 


cé 


4A 
EC 
24 
os 
83 
32 
EE 
c3 


50 
BO 
E6 
FA 
E4 
oc 
E6 
BO 
E6 
FB 
BS 
cD 
58 
CF 


BA 
02 
c3 


DB 
co 
Ds 
36 0104 R 


DB 


FF 
8A 5c 09 
66 FS 
Fc 04 
06 


8A 5C OA 
09 
FC E3 

04 


8A 5C OB 


9000 
15 


c9o 


O76D R 


20 
OA 


F5 


F2 


06 0074 R 80 


02 

06 0074 R 
c2 03 

co 


07 
OA 


21 
20 
21 
20 
20 


9100 
15 


0320 
16 0077 R 
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TURN ON INTERRUPTS 
SAVE DS 


ESTABLISH SEGMENT 
LOAD THE TABLE VECTOR 


RESTORE DS 


LOAD THE STANDARD TIME OUT 


; LOAD THE FORMAT DRIVE 
3 TIME OUT VALUE 


; LOAD THE CHECK DRIVE 
3 TIME OUT VALUE 
CLEAR CY 
DEVICE WAIT INTERRUPT 


ENABLE INTERRUPTS FOR PC AND 
XT MACHINES. 
SET THE LOOP COUNT 


PORT_1 ADDRESS 

READ THE HARDWARE STATUS 
DID INTERRUPT OCCUR 

JUMP IF YES 


INNER LOOP 


OUTER LOOP 


ADDRESS PORT 0 

READ THE STATUS BYTE 
ISOLATE THE ERROR BIT 
SAVE IN THE STATUS 
PORT_3 ADDRESS 

ZERO 

RESET INTERRUPT MASK 


PAGE 
; WAIT_INT 
3 THIS ROUTINE WAITS FOR THE FIXED DISK 
Hi CONTROLLER TO SIGNAL THAT AN INTERRUPT 
Hi HAS OCCURRED. 
WAIT_INT PROC NEAR 
ASSUME DS:ABSO 
STI 
MOV BxX,DS 
SUB AX, AX 
MOV DS,AX 
LES SI,HF_TBL_VEC 
ASSUME DS:DATA,ES:NOTHING 
MOV DS, BX 
;----- SET TIMEOUT VALUES 
SUB BH, BH 
MOV BL,BYTE PTR ES: [SI] [9] 
MOV AH, CMD_BLOCK+0 
CMP AH, FMTDRV_CMD 
JNZ ws 
MOV BL,BYTE PTR ES: [SI] [OAH] 
JMP SHORT W4 
WS: CMP AH, CHK_DRV_CMD 
JNZ w4 
MOV BL,BYTE PTR ES: [SI] [OBH] 
wa: 
CLC 
MOV AX, 9000H 
INT 15H 
STI 
SUB Cx, CX 
.--<s- WAIT FOR INTERRUPT 
wi 
CALL PORT_O 
INC Dx 
IN AL, DX 
TEST AL, 020H 
JINZ w2 
LOOP wi 
DEC BX 
JINZ wi 
MOV DISK_STATUS, TIME_OUT 
w2: 
DEC Dx 
IN AL, DX 
AND AL,2 
OR DISK_STATUS, AL 
ADD Dx,3 
XOR AL, AL 
out DxX,AL 
RET 
WAIT_INT ENDP 
j;--- HD_INT 


HD_INT PROC 
PUSH 
MOV 
ouT 
CLI 
IN 
OR 
ouT 
MOV 
out 
STI 
MOV 
INT 
POP 
IRET 

HD_INT ENDP 





NEAR 
AX 

AL, 07H 
DMA+10, AL 


AL, INTAOL 
AL, 020H 
INTAO1,AL 
AL, EOL 
INTAOO, AL 


AX, 9100H 
15H 
AX 


; GENERATE PROPER PORT VALUE 
3 BASED ON THE PORT OFFSET 





PORT_O PROC 
MOV 
ADD 
RET 
PORT_O ENDP 


END_ADDRESS 
CODE ENDS 
END 


NEAR 
DX, HF_PORT 
DL, PORT_OFF 


LABEL BYTE 


SAVE WORK REGISTER 
SET DMA MODE TO DISABLE 


NO INTERRUPTS 
LOAD THE INTERRUPT ENABLE MASK 
TURN OFF FIXED DISK IRQ-5 
REPLACE THE MASK 
LOAD THE END OF INTERRUPT MASK 
CLEAR THE ACTIVE INTERRUPT LEVEL 
INTERRUPTS BACK ON 
DEVICE POST 

INTERRUPT 
RESTORE AX 


BASE VALUE 
ADD IN OFFSET VALUE (00,04, 08,0C) 


